inherited fUprawomocnieniaWykreslen: TfUprawomocnieniaWykreslen
  Caption = 'fUprawomocnieniaWykreslen'
  ClientHeight = 734
  ClientWidth = 1021
  ExplicitWidth = 1021
  ExplicitHeight = 754
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvGHPanelMaster: TJvGradientHeaderPanel
    Width = 1017
    Height = 730
    inherited jvGHPanelButton: TJvGradientHeaderPanel
      Top = 705
      Width = 1017
      inherited jvPResizeForm: TJvPanel
        Left = 1007
        Top = -26
        ExplicitTop = -26
      end
    end
    inherited jvGHPanelTop: TJvGradientHeaderPanel
      Width = 1017
      LabelCaption = 'Uprawomocnienia wykre'#347'lenia z KRS'
      ExplicitLeft = 0
      ExplicitTop = 0
      inherited tbtnMax: TJvTransparentButton
        Left = 973
      end
      inherited tbtnClose: TJvTransparentButton
        Left = 994
      end
      inherited tbtnNormal: TJvTransparentButton
        Left = 973
      end
      inherited tbtnMin: TJvTransparentButton
        Left = 951
      end
    end
    inherited JvGradientHeaderPanelMaster: TJvGradientHeaderPanel
      Width = 1017
      Height = 670
      GradientSteps = 1
      ExplicitLeft = -6
      ExplicitTop = 31
      ExplicitWidth = 1017
      ExplicitHeight = 650
      object JvPageControl: TJvPageControl
        Left = 0
        Top = 59
        Width = 1017
        Height = 611
        ActivePage = tsWynik
        Align = alClient
        Images = JvImageListAllButton
        MultiLine = True
        TabOrder = 0
        ParentColor = False
        Color = clCream
        ExplicitTop = 89
        ExplicitHeight = 561
        object tsWczytanyPlik: TTabSheet
          Caption = 'Wczytany plik'
          ImageIndex = 39
          ParentShowHint = False
          ShowHint = False
          ExplicitLeft = 6
          ExplicitHeight = 532
          object RichEditPlik: TRichEdit
            Left = 0
            Top = 0
            Width = 1009
            Height = 582
            Align = alClient
            Font.Charset = EASTEUROPE_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            ScrollBars = ssBoth
            TabOrder = 0
            ExplicitTop = 2
            ExplicitWidth = 987
            ExplicitHeight = 539
          end
        end
        object tsWynik: TTabSheet
          Caption = 'Wynik'
          ImageIndex = 50
          ExplicitLeft = 6
          ExplicitHeight = 532
          object RichEditWynik: TRichEdit
            Left = 0
            Top = 0
            Width = 1009
            Height = 582
            Align = alClient
            Font.Charset = EASTEUROPE_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'Tahoma'
            Font.Style = []
            ParentFont = False
            PopupMenu = JvPopupMenu
            ScrollBars = ssBoth
            TabOrder = 0
            ExplicitLeft = 2
            ExplicitTop = -2
          end
        end
        object tsTabelka: TTabSheet
          Caption = 'Data uprawomocnienia wykre'#347'lenia w aktualnie zminionych KRS'
          ImageIndex = 2
          ExplicitLeft = 6
          ExplicitHeight = 532
          object StringGrid1: TStringGrid
            Left = 0
            Top = 0
            Width = 1009
            Height = 582
            Align = alClient
            ColCount = 3
            DoubleBuffered = True
            FixedCols = 0
            RowCount = 1
            FixedRows = 0
            ParentDoubleBuffered = False
            TabOrder = 0
            ExplicitWidth = 987
            ExplicitHeight = 539
          end
        end
      end
      object JvGHPMenu: TJvGradientHeaderPanel
        Left = 0
        Top = 0
        Width = 1017
        Height = 59
        GradientStartColor = clCream
        GradientEndColor = clCream
        GradientSteps = 1
        GradientStyle = grHorizontal
        LabelCaption = '  '
        LabelFont.Charset = DEFAULT_CHARSET
        LabelFont.Color = clWhite
        LabelFont.Height = -11
        LabelFont.Name = 'Tahoma'
        LabelFont.Style = []
        LabelAlignment = taLeftJustify
        Align = alTop
        TabOrder = 1
        object ImageErr: TImage
          Left = 211
          Top = 42
          Width = 16
          Height = 16
          Picture.Data = {
            0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000
            001008060000001FF3FF61000002944944415478DA6D93CF4FDB3014C7EDA6F9
            D5A61028038A004185A60981C8058AB4532476EF54B63315276EEC2F81FFA05C
            B703B04D1424902C412F8C8BD10E3D6C0734A050464A429B900685CCF69A8E49
            7DD28B2DE77DBEB6DF7B86A065787979CD33CDB14AA994CF56AB26E8605BA994
            9ACA640ABEE79DBD2E163FD035483FDF57560AC99999A5CAC101A895CBD8310C
            3D7B7D6D7680913A31A1DD964AE0C1B236DE94CB794877EE9F9D5DADECEF03AF
            560381EF83C6CD0D762C4B7F7B75C544368786D4D4DC1CEA49A735E3E888C550
            736C7B1D7ECBE5B62210663DC3F8FB8378F0F4046CC3C076BDAE03080183C7C7
            35E3F090FD0FADDE686CC3CF0303AADCD787E2C9A416C22C888C0DCBC2DD9393
            A0F7391C04ECDEF78E831B8EA3B31C6C0F0EAAB2AAA2784F8F16C2900A11EF9D
            9F07E6F131836930240226855D57CF5D5E9AF079926289048A777569214C8383
            661304AECBE634B8118DE27B022F12B85D85D036A988A220459635FFEE0EF896
            0522643D1289008EE3409DE73111D0172F2EDA15FA5F80647B606A0AC54451AB
            2104B816C89CCC2D226041A8BFEB244077EF9F9E468AAA6AB77B7B80236BD116
            DC1EA35160909EBB0D02FDFDF9F9BF2BD0FBBF203B53F8F7EE2E8343803ADF1A
            43A16BDFC7D5C747260243384EE09B62114448B2A22DD816454C817E8ED3789E
            6742D4E9DA2FD7C5172499B0B4B0B01553D56C756787C1E1911F2409DB82A007
            E434498E43C3242F822000A125044983FDA8D7B721CA64D61C8C574398BA2BCB
            F881C061A93E8D8CA8838280D28AA249A2C84468657E5AD63ACBC19744A2C037
            9B4B14F6E271DC1445D624CF2B4445866331F48A349B2C49E0DCB6375E9E9CE4
            DB55F8DADDBD46B61FF324299FAB543A3EE78FA3A3EA98A214623C7F367D7ACA
            9EF31F5F4C3FCFA2F6680F0000000049454E44AE426082}
          Visible = False
        end
        object ImageOk: TImage
          Left = 243
          Top = 42
          Width = 16
          Height = 16
          Picture.Data = {
            0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000
            001008060000001FF3FF61000002804944415478DA95936D48537114C69FBBBB
            7BAFD7F932278BB9D5BA339570112E934A920C226696D5D7E86505D23E442A44
            5F225D14419F1C81995A5EC530C228E89364A6642FEAD4CD52D122B5D03675BE
            4C67F362B9AE3324CAD17CE07C39FCCF8FF37FCE3904D6A33270124252449334
            C790F4304D5205C43A8AE562B1FD187788D3C8D41899FF069BBBAB396400594E
            5A32357B8B72B82CB8169C50B16A94F55520240055214D915132FBD5B4CB18F5
            7D09E4B4321DCA7BF9D000ECFDB0A6DC6D67321363E2D1EBE9465A6C3A9A475A
            F0DEDD63FD2F20BC92356D8D49E22F1ACCE8F7F640CBEA30EDF3A0EED3D361D1
            13C30AA00429908841C001B318BF15C9472C1B37743DFD8A9C902E41F00B5052
            2AF03D35F02ECEEFEF38EA104D2C4171825C979F18B305EDE39D9814A6AD388F
            826580BC2A9ACF49C832197507F055184452841E0D438DE81CB35BDB73EC8137
            04EEC07F33BD102CC5C04F107830F008BD93FD55328AADDE10AE6CBA915108D7
            8F11A818355CDE09D47CA80DB4FEEE48C7CC0AA014FEDBFB6E614C70829252E0
            22E3F170A00E5DE3DDB8949687CD0A0D7C98878254A2B4EB1E668559C3DBC3B6
            D56F12B88BE2DD713BF3CF269F847B710CB494C6A6080EFD531F911A97828925
            17B4613AD47F7E8ED651DBB5D7D96D963F4D0E98282997F0199A3DA673FA5398
            FAE9C602F11DFAA8ED9883070A2616AEB90954DAAB1D2DD9AD86BFA7B43AC6A8
            AAC800E4B4FE043CFE29F844888A8D835CAA40A9AD021EC16368CA7AE3080A58
            D6C65A35AF8BD69A2EA49A41D2402CA344C36023DAC4D61B8D2D16ACA17F1629
            F97112CF8910736A2E9C5E27EAFA9E385E185F1910446B6EE2AE673B2C0CC9E4
            89273B434AC8E3F5075F3A82017E016597DC32B6811DD30000000049454E44AE
            426082}
          Visible = False
        end
        object ImageRefresh: TImage
          Left = 277
          Top = 42
          Width = 16
          Height = 16
          Picture.Data = {
            0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000
            001008060000001FF3FF61000001C84944415478DA9592C14B5B4110C6676677
            CD510F6A0B7A78295554D0C622A85068CEA292DC5B9E0A823773E8A9878A971E
            6D4AA15E04CD4DE8C1570541104C11B49E129A569016FA103D2882EF3F48BF7D
            ADC134E6A903CBEECEEEF79B8FD9E572B94C369899EA45F3C87E0A937BB1399C
            BECA5574518096D1FDE4BFBC4B4C1358A7CF3E0F7A9180E691BD243673D82759
            880479169C71782710E1F8C9A781E04600ACA20A2D5B012E122BAE00EC795883
            D93B5E7D9AAE01B48C7E855DDA11111F020FD5BF8812472976B14F58805C3921
            8EFFCAF5F95580D6B1833581E86C7D287BBD0F8F5E16D70048852E8856909AFF
            B9DCE7D73878307EE09C6F0CF9FF37B263AAF41BC57318D9A3A5DEE05EAF1015
            B7027A660E9BACE7C3C59EE05E80CEA992238AE794961492F11F1FBBAB00CFE6
            8F13B81DECBE69AF6E62FC453101D12CC684368A949162E94357FF75F1F3B7A7
            199471F3AFDBFA6B1C0070A91B549315EB062163946F623A871C69238D4AAB94
            6876EC6FDC7EF5D0AB013C76BF6550F59D15182BAACC9A4C2C8410FEC5E456A6
            75A56E0FBAA6BFEF40980CC5B1BFC27036CA03FC3DC4F9C826A2F30E7A500020
            5F58E8485344D47D8527B34719BC0215163AB37701FC01D9A0BCE1C2D0B3F100
            00000049454E44AE426082}
          Visible = False
        end
        object JvLabelWynik: TJvLabel
          Left = 328
          Top = 6
          Width = 172
          Height = 16
          Caption = 'Liczba znalezionych dat: 0'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
          HotTrackFont.Charset = DEFAULT_CHARSET
          HotTrackFont.Color = clWindowText
          HotTrackFont.Height = -13
          HotTrackFont.Name = 'Tahoma'
          HotTrackFont.Style = []
        end
        object JvLabel1: TJvLabel
          Left = 568
          Top = 6
          Width = 165
          Height = 52
          Caption = 
            'Liczba poprawnych:  0'#13#10'Liczba b'#322#281'dnych : 0'#13#10'Liczba brakuj'#261'cych w' +
            ' bazie: 0'#13#10'Liczba b'#322#281'dnie przeanalizowana: 0'
          Transparent = True
          HotTrackFont.Charset = DEFAULT_CHARSET
          HotTrackFont.Color = clWindowText
          HotTrackFont.Height = -11
          HotTrackFont.Name = 'Tahoma'
          HotTrackFont.Style = []
        end
        object JvLabel2: TJvLabel
          Left = 776
          Top = 6
          Width = 178
          Height = 26
          Caption = 
            'Liczba porawnie wstawionych dat:  0'#13#10'Liczba b'#322#281'dnych wstawionych' +
            ' dat: 0'
          Transparent = True
          HotTrackFont.Charset = DEFAULT_CHARSET
          HotTrackFont.Color = clWindowText
          HotTrackFont.Height = -11
          HotTrackFont.Name = 'Tahoma'
          HotTrackFont.Style = []
        end
        object SpeedButton1: TSpeedButton
          Left = 4
          Top = 6
          Width = 105
          Height = 25
          Action = actWczytajPlik
        end
        object SpeedButton3: TSpeedButton
          Left = 5
          Top = 35
          Width = 42
          Height = 22
          Hint = 'Otw'#243'rz katalog z raportami'
          Glyph.Data = {
            36040000424D3604000000000000360000002800000010000000100000000100
            2000000000000004000000000000000000000000000000000000FF00FF00FF00
            FF00FF00FF00FF00FF005A97B0FFFBFBFB04FF00FF00FF00FF00FF00FF00FF00
            FF00EAF1F520D9DDDE2BFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
            FF00F4F8FA1064A9C2FF9CE3EFFFC1C1C13EFF00FF00B6D1DC705A97B0FF64A7
            C3FF6BB3D1FF62A3BCFF6A9CB1DDFF00FF00FF00FF00FF00FF00FF00FF00E2EF
            F3306DB9D1FF77CAE2FF9EE4F0FF4B7E93FF5E9DB8FF6BB4D3FF6CB6D5FF6CB8
            D7FF6DB8D8FF73C1A5FF5A97B0FFE4E4E41BFEFEFE01FF00FF00FF00FF0073C4
            D9FF7AD1E6FF79CEE5FFA0E5F1FF5792AAFF62A7C3FF6DBBDBFF6EBDDEFF6EBE
            E0FF6FBFE1FFB8E0B8FF5A97B0FFFEFEFE01FF00FF00FF00FF00FF00FF0077CC
            E0FF7BD4E9FF7AD2E7FFA2E6F1FF5A9BB6FF65AECDFF6FC1E3FF70C2E6FF70C4
            E8FF70C5E9FFFFFFFFFF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF0078CE
            E1FF7DD8EBFF7CD6EAFFA5E8F2FF5EA3C0FF63ACCBFF71C6EAFF71C8EDFF71C9
            EFFF72CAF0FFFFFFFFFF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF0078CF
            E1FF7FDBEEFF7EDAECFF7DD9ECFF7CBBCDFF63AECFFF6EC4E9FF72CCF3FF73CD
            F5FF79D1F5FFA6E9F3FF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF0079D0
            E2FF80DFF0FF7FDEEFFF7FDDEEFFACECF4FF66B6D8FF70C9EFFF74D0F8FF74D1
            FAFF81D8F9FF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF0079D0
            E3FF82E3F2FF81E2F1FF81E1F1FFAFEEF6FF69BCE1FF72CDF5FF74D3FCFF75D4
            FDFF83DAFCFF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF0079D1
            E3FF83E6F4FF83E5F4FF82E4F3FFB3F0F7FF6CC2E8FF73D0F9FF75D5FFFF75D5
            FFFF84DCFDFF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF007AD2
            E4FF85E9F7FF84E9F6FF84E8F6FFB6F2F8FF6EC8EFFF73D2FBFF75D5FFFF75D5
            FFFF85DCFDFF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF007AD3
            E4FF86EDF9FF86ECF8FF85EBF8FFBAF5F9FF70CCF4FF73D1FAFF75D5FFFF75D5
            FFFF86DDFEFF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF007AD3
            E5FF87EFFBFF87EFFAFF87EEFAFFBFF7FBFF72D0F9FF75D5FFFF75D5FFFF75D5
            FFFF87DDFEFF5A97B0FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF007BD4
            E5FF88F2FCFF88F1FCFF88F1FCFFC3FAFCFF75D5FFFF75D5FFFF75D5FFFF75D5
            FFFF88DEFEFF5E9EB8FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF007BD5
            E5FF89F4FEFFB8FAFDFFA8E9F1FF6DBDD7FF75D5FFFF8ADFFFFF9EE9FEFFB2F2
            FEFFC6FCFDFF66AAC7FFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF008BD7
            E5FF9BE1ECFF96DEEAFFB3EBF3FF9BD9E8FF83C6DCFF6BB3D1FF90C6DCBFB4D8
            E780D9EBF340FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
          ParentShowHint = False
          ShowHint = True
          OnClick = actShowDirRaportsExecute
        end
        object SpeedButton2: TSpeedButton
          Left = 115
          Top = 6
          Width = 134
          Height = 25
          Action = actDodaDate
          Enabled = False
          ParentShowHint = False
          ShowHint = True
        end
      end
    end
  end
  inherited jvPanelLeft: TJvPanel
    Height = 730
  end
  inherited JvPanelRight: TJvPanel
    Left = 1019
    Height = 730
  end
  inherited jvPanelButton: TJvPanel
    Top = 732
    Width = 1021
  end
  inherited jvPanelTop: TJvPanel
    Width = 1021
  end
  inherited JvVersionControlActionList: TJvVersionControlActionList
    Left = 88
    Top = 176
    object actWczytajPlik: TAction
      Category = 'Uprawomocnienia'
      Caption = 'Wczytaj plik'
      ImageIndex = 28
      OnExecute = actWczytajPlikExecute
    end
    object actDodaDate: TAction
      Category = 'Uprawomocnienia'
      Caption = 'Wstaw dat'#281' do bazy'
      ImageIndex = 16
      OnExecute = actDodaDateExecute
    end
    object actShowDirRaports: TAction
      Category = 'Uprawomocnienia'
      Caption = 'actShowDirRaports'
      Hint = 'Otw'#243'rz katalog z raportami'
      ImageIndex = 4
      OnExecute = actShowDirRaportsExecute
    end
    object actSaveRap: TAction
      Category = 'Uprawomocnienia'
      Caption = 'Zapisz do pliku'
      ImageIndex = 31
      OnExecute = actSaveRapExecute
    end
  end
  inherited JvImageListAllButton: TJvImageList
    Left = 116
    Top = 176
  end
  inherited JvPopupMenuPasekTop: TJvPopupMenu
    Left = 88
    Top = 204
  end
  inherited JvImageListPasekButton: TJvImageList
    Left = 144
    Top = 176
  end
  inherited JvBalloonHint: TJvBalloonHint
    Left = 144
    Top = 204
  end
  inherited JvMainMenu: TJvMainMenu
    Left = 59
    Top = 204
  end
  inherited ApplicationEvents: TApplicationEvents
    Left = 116
    Top = 204
  end
  inherited ADConnWork: TADConnection
    Left = 59
    Top = 232
  end
  inherited ADTranWork: TADTransaction
    Left = 88
    Top = 232
  end
  object ADQueryKRS: TADQuery
    Connection = ADConnWork
    Transaction = ADTranWork
    SQL.Strings = (
      
        'select M.idMetryki, M.chPublikator, M.dtOgloszenie, M.boGotowe, ' +
        'M.idPodmiotu, M.inDotRoku, M.dtDataPocz, M.dtDataKon, M.inKRS, M' +
        '.chPKD, M.boZakresDat, M.idMiejscowosciWGminach, M.dtDataWpisu, ' +
        'M.idUlicyKRS, M.idNumerWMiescie, M.chUwagiTxt, M.chSygnaturaWpis' +
        'u, M.inNumerWpisu'
      '     , R.chRodzaj, PR.chPodrodzaj, P.chNazwa, S.chSadOgloszenia'
      'from Metryki M'
      'left outer join Podmioty P on M.idPodmiotu = P.idPodmiotu'
      'left outer join Rodzaje R on M.idRodzaju = R.idRodzaju'
      
        'left outer join Podrodzaje PR on M.idPodrodzaju = PR.idPodrodzaj' +
        'u'
      
        'left outer join SadyOgloszenia S on M.idSaduOgloszenia = S.idSad' +
        'uOgloszenia'
      
        'where M.chPublikator16 = (select max(Ms.chPublikator16) from Met' +
        'ryki Ms where Ms.inKRS=:p_inKRS and Ms.idPodRodzaju=28) '
      
        '--   and M.chUwagiTxt not like '#39'%data uprawomocnienia wykre'#339'leni' +
        'a z krs%'#39)
    Left = 116
    Top = 232
    ParamData = <
      item
        Name = 'P_INKRS'
        ParamType = ptInput
      end>
  end
  object ADQueryUdateDate: TADQuery
    Connection = ADConnWork
    Transaction = ADTranWork
    Left = 144
    Top = 232
  end
  object OpenDialog: TOpenDialog
    Filter = 'word|*.doc;*.docx|tekstowy|*.txt|wszystkie pliki|*.*'
    Left = 172
    Top = 204
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'tekst|*.txt|(*.*)|*.*'
    Left = 172
    Top = 176
  end
  object PerlRegEx1: TPerlRegEx
    Options = []
    Left = 172
    Top = 232
  end
  object JvPopupMenu: TJvPopupMenu
    Style = msXP
    ImageMargin.Left = 0
    ImageMargin.Top = 0
    ImageMargin.Right = 0
    ImageMargin.Bottom = 0
    ImageSize.Height = 0
    ImageSize.Width = 0
    Left = 59
    Top = 176
    object Zapiszdopliku1: TMenuItem
      Action = actSaveRap
    end
  end
end
